Wissenswertes zu Bits, Bytes und Flags 


Mit dieser Abhandlung werden Sie in die Welt der Bits und Bytes eingeführt. Anfangen wollen wir mit ein paar 
Grundlagen, auch wenn Ihnen diese vermutlich längst bekannt sind. 


Die Welt des Programmieren beginnt mit Bits und Bytes. Bit, das ist ein Kunstwort. Es steht für die Abstraktion 
zweier elektrischer Signalzustände: so kann ein elektrisches Gerät ausgeschaltet oder eingeschaltet sein. 


Und genau solche Signalzustände werden durch Bits beschrieben. 


« Für den Betriebszustand »ausgeschaltet« wird einem Bit der Zustandswert (auch Statuswert genannt) »Null« 
0 zugeschrieben. (Alternativ wird dieser auch schon mal mit »aus«, »off«, »niedrig«, »low« L  ,‚»falsch« F 
oder »false« F bezeichnet.) 

e Für den Betriebszustand »eingeschaltet« wird einem Bit der Zustandswert »Eins« 1 zugeschrieben. (Alternativ 
wird dieser auch schon mal mit »an«, »on«, »hoch«, »high« H ,‚»wahr« W oder »true« T bezeichnet.) 


[0] ein Bit mit dem Statuswert »0« (auch »aus«, »of«, »falsch« oder »false«) 


ein Bit mit dem Statuswert »1« (auch »arı«, »on«, »wahr« oder »true«) 


Um die Verarbeitung von Bits mittels Computer zu vereinfachen, werden diese zu übersichtlichen Gruppen 
arrangiert. Solche Gruppen werden Byte genannt. Byte, das ist wiederum ein Kunstwort. Die Zahl der Bits, die zu 
einem Byte zusammengefaßt werden, kann variieren und ist durch die Hardwarekonzeptionen eines jeweiligen 
Computers bestimmt. So kennt man Entwicklungen, die beispielsweise auf Festlegung von 


e einem Byte zu 4 Bit, 
e einem Byte zu 8 Bit oder 
e einem Byte zu 9Bit 
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basieren. 


3 2 1 0 


[1l1[o]Jo] ein4-Bit-Byte 
7 6 5 4 3 2 1 0 
[1loJoJı/ıltlolo]| ein8-Bit-Byte 


8 76543 2 10 
(ılıJoJofıltltlolo| ein9-Bit-Byte 


Natürlich möchten wir Sie auch auf Beispiele solcher technischen Festlegungen hinweisen: 


e mit Bytes von je 4 Bit: 


© von Intel das Modell 4004; 

° von NEC die Prozessorfamilie uUPD75X; 

oe von Texas Instruments die Serie TMS1000; 
° von Hewlett-Packard die HP-Saturn-Familie. 


e mit Bytes von 9 je Bit: 


° die Minicomputer PDP-1, PDP-4, PDP-7, PDP-9 und PDP-15 (basierend auf 2 Byte zu jeweils 9 Bit); 
° die PDP-10 (basierend auf 2 Byte und 4 Byte zu jeweils 9 Bit); 

° diverse UNIVAC-Computer, beispielsweise die UNIVAC 418; 

° das IBM 7700 Datenerfassungssystem; 

° das BCL Molecular 18; 

° der NASA-Standard-Raumflugceomputer NSSC-1. 


e mit Bytes von 8 je Bit: 


° Dies ist die geläufigste Bytebreite. Auf ihr basieren die meisten Home- und Minicomputer, als auch die IBM- 
kompatiblen Personal Computer Systeme. 


Was können Computer nun mit diesen Bits machen? 


Computer können grundlegende Operationen auf Bits anwenden, von denen wir Ihnen hier die wichtigsten vorstellen. 
Diese Operationen führen sowohl deutsche als auch englische Namensbezeichnungen. Da unsere Betrachtungen 
jedoch aufs Programmieren bzw. auf Programmiersprachen abzielen, wenden wir uns der englischen Sprache 
entlehnten Namensbezeichnungen zu. Diese werden Sie in adäquater Form im Sprachumfang der meisten 
Programmiersprachen wiederfinden. 


Hinsichtlich der Bit-Operationen werden wir Ihnen diese per Text und Wertetabelle vorstellen. Der Text beschreibt die 





Bit-Operation, und die Wertetabelle stellt Eingangs- und Ausgangsgröße (also Eingangs-Bit und Ausgangs-Bit) 
einander gegenüber. Die Ausgangsgröße (das Ausgangs-Bit) ist zugleich das Ergebnis der Bit-Operation. Der 
Vergleich von Eingangs- und Ausgangs-Bit zeigt die im Text beschriebene Wirkungsweise der Bit-Operation. Zudem 
ist jede Zeile einer Wertetabelle farbig hinterlegt: 


e Eine Zeile ist weiß hinterlegt, wenn das Ausgangs-Bit (das Ergebnis) dieser Zeile den Bit-Status O ergibt. 
e Eine Zeile ist grau hinterlegt, wenn das Ausgangs-Bit (das Ergebnis) dieser Zeile den Bit-Status 1 ergibt. 


Diese Farbgebung hat keinen technischen Hintergrund, sondern soll alleine Ihrer Orientierung dienen. Zudem kann 
die Farbgebung hilfreich sein, wenn Sie verschiedene Wertetabellen rasch miteinander vergleichen möchten. 


Unterhalb der Wertetabelle stellen wir Ihnen Formelschreibweisen für die genannte Bit-Operation vor. Bereits beim 
ersten Hinsehen werden Ihnen Unterschiede in diesen Schreibweisen auffallen. Trotz dieser Unterschiede in den 
Schreibweisen, drücken sie jeweils die gleiche Bit-Operation aus. Zu jeder Wertetabelle geben wir fallweise drei 
oder vier unterschiedliche Formelschreibweisen an, und bedienen uns dabei der folgenden Schreibformen: 


Schreibweise Bedeutung 





Eine mathematische Schreibweise der Algebra mit dem entsprechenden mathematischen 


Operator-Symbol(en). 
, Beispiel: »:= an» 
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Wo ein Teilausdruck vorrangig zu behandeln ist, wird dieser in Klammern gesetzt. 
Beispiel: z:- an(svc) 


Eine Schreibweise vergleichbar infix-basierter Programmiersprachen. Die /nfix-Notation ist 
eine Schreibweise, bei der ein Operator zwischen seinen Operanden notiert wird. 
Beispiel: z = Aan 
infix ni 
Wo ein Teilausdruck vorrangig zu behandeln ist, wird dieser in Klammern gesetzt. 
Beispiel: #:- Aand(Borc) 


Eine Schreibweise vergleichbar postfix-basierter Programmiersprachen. Die Postfix- 
Notation ist eine Schreibweise, bei der ein Operator nach (d.h. hinter) seinen Operanden 
notiert wird. 
Postfix Beispiel: »:- 4 B and 
Diese Schreibweise kennt keine Klammersetzung. Ihre Ausdrücke werden konsequent von 
links nach rechts (und dann ggf. noch von oben nach unten) abgearbeitet. 
Beispiel: #:= BC or A and 


Eine Schreibweise vergleichbar funktional-basierter Programmiersprachen. Die funktionale 
Notation ist eine Schreibweise, bei der Funktionen an Stelle von Operatoren verwendet 
werden. Dabei werden die Operanden diesen Funktionen in festgelegter Reihenfolge als 
Parameter übergeben. Üblich festgelegt ist, daß zunächst der Funktionsname notiert wird, 
gefolgt von einer öffnenden Klammer. Dann folgt die Nennung der durch Komma separierten 
Parameter in festgelegter Reihenfolge; und eine schließende Klammer schließt die 


Schreibweise Bedeutung. 
Konstruktion ab. 
Beispiel: z := ana(A,B) 

funktional 
Selbstverständlich dürfen auch Funktionen als Parameter übergeben werden, jedoch sind 
diese zuvor auszuwerten, so das letztlich deren Ergebnis als Parameter übergeben wird. Auf 
diese Weise lassen sich Funktionen ineinander verschachteln, und solche 
Verschachtelungen sind von innen nach außen hin aufzulösen. 
Beispiel: z :- ana( A, or(B,C)) 


Funktionale Schreibweisen finden sich in funktionalen Programmiersprachen, teilweise aber 
auch in den Zellenformeln von Tabellenkalkulationen wie »LibreOffice Calc« oder »Microsoft 
Excel«. 


Grundlegende Bit-Operationen 


UND-Verknüpfung 


Bei der UND-Verknüpfung ist das Ergebnis-Bit E ist nur dann 1, wenn die Statuswerte der Eingangs-Bits A und 
B beide 1 sind; andemfalls ist das Ergebnis-Bit 0. 


Legen wir dazu eine Wertetabelle an, ergibt sich folgendes Bild: 





E := (AAB) (-algebraisch -) 
E:= (AandB) (- infix-) 
E '’= AB and (-postfix -) 
E != And A,B) (-funktional -) 


Ein alternative Bezeichnungen der UND-Verknüpfung ist: 


e AND-Verknüpfung 


ODER-Verknüpfung 


Bei der ODER-Verknüpfung ist das Ergebnis-Bit E ist genau dann 1, wenn wenigstens eines der Eingangs-Bits A 
und B den Statuswert 1 hat; andernfalls ist das Ergebnis-Bit 0. 


Ihre Wertetabelle lautet: 


(-algebraisch -) 
(-infix -) 
(- postfix -) 





(-funktional-) 


Eine alternative Bezeichnungen der ODER-Verknüpfung ist: 


e OR-Verknüpfung 


Exklusiv-ODER- Verknüpfung 





Bei der Exklusiv-ODER-Verknüpfung ist das Ergebnis-Bit F ist genau dann 1, wenn lediglich genau eines der der 
Eingangs-Bits A und B den Statuswert 1 hat; andernfalls ist das Ergebnis-Bit 0. 


Die Wertetabelle lautet: 


(-algebraisch -) 
(-infix -) 
(- postfix -) 


(- funktional -) 





Alternative Bezeichnungen der Exklusiv-ODER-Verknüpfung sind: 


e XODER-Verknüpfung 
e Exklusiv-OR-Verknüpfung 
e XOR-Verknüpfung 


Bit-Operationen mit Invertierung 
Invertieren eines Bit 


Beim Invertieren nimmt das Ergebnis-Bit EYE RREH header BRAuswert gegenüber dem Statuswert des 
Eingangs-Bit A an. Das Ergebnis-Bit E 


e istO, wenn A den Statuswert 1 hat; und 
e ist1, wenn A den Statuswert O hat. 


Damit ergibt sich folgende Wertetabelle: 





E := (A) (-algebraisch -) 
E := (imert A) (- infix -) 
E = A invert (-postfix -) 
E := Imert( A ) (- funktional -) 


Häufig genutzt Alternativbezeichnungen für das Invertieren eines Bits sind: 


Negieren (Negierung) 


Umkehren (Umkehrung) 
Vertauschen (Vertauschung) 
e NICHT-Operation 

e NOT-Operation 

e NEGATE-Operation 


Unglücklicherweise überschneiden sich diese alternativen Bezeichnungen häufig mit namensgleichen oder 
zumindest namensähnlichen Bezeichnungen zu Operationen auf Zahlen und Wahrheitswerten der Booleschen 
Algebra (welche in vielen Programmiersprachen durch Zahlenwerte repräsentiert wird). Und diese Operationen sind 
aufwendiger, als das bloße Invertieren von Bits. Um diesbezüglich Eindeutigkeit zu erreichen, legen wir folgende 


Begriffe fest: 


e Mit Invertieren bzw. INVERT bezeichnen wir ausschließlich eine Operation zum Umkehren von Bits. 
e Mit Negieren bzw. NEGATE bezeichnen wir ausschließlich eine Operation für den Vorzeichenwechsel bei 
Zahlen. 


Beispiel: Wenn wir die positive Zahl 37 negieren, wird daraus die negative Zahl -37. Und wenn wir die negative Zahl 
-37 nochmals negieren, wird daraus wieder die positive Zahl 37. 


e Mit NICHT bzw. NOT bezeichnen wir ausschließlich eine Operation zum Umkehren von Wahrheitswerten der 
Booleschen Algebra (den sogenannten »Flags«). Der Kontext dieser Operation bezieht sich ausdrücklich auf 
die Boolesche Algebra, und zwar selbst dann, wenn dafür Bits invertiert werden sollten. 


Passend zu diesen Festlegungen haben wir die hier besprochene Bit-Operation mit der Überschrift »Invertieren 
eines Bit« versehen und haben jede verwirrende Wortwahl, die unserer Festlegung entgegenstände, in der 
Überschrift vermieden. 


Die Wirkungsweise von INVERT braucht nicht in einem Computer oder einer Programmiersprache implementiert 
sein, den sie läßt sich problemlos mittels eines auf 1 gesetzten Bits und der XOR-Operation durchführen und liefert 
dabei immer das korrekte Ergebnis: 





[ATlE| 
E := (AV1) (-algebraisch -) 
E := (Axor) (-infix -) 
E := Alxor (- postfix -) 
E :=Xor A,1) (- funktional -) 
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Das Wort »inhibitieren« bedeutet soviel wie »hemmen« oder auch »zurücksetzen«. Damit beschreibt die Inhibition 
eine Bit-Operation, die ein Bit hindern (hemmen) kann, in ein Ergebnis einzufließen. 


Die Inhibition nutzt also zwei Eingangs-Bit ( A und B ). Das zweite Eingangs-Bit B entscheidet dabei, ob der 
Zustandswert des Eingangs-Bit A in das Ergebnis-Bit E einfließt oder nicht. Hat das Eingangs-Bit B den Wert 0, 
so wird der Zustandswert des Eingangs-Bit A in das Ergebnis-Bit E übernommen. Hat das Eingangs-Bit B 
hingegen den Wert 1, so unterdrückt (hemmt) die Inhibition die Übernahme des Zustandswertes von Eingangs-Bit A 
und reicht statt dessen den Zustandswert O an das Ergebnis-Bit E weiter. 


Die diesbezügliche Wertetabelle lautet: 





E := (A inhibit B ) (- infix -) 
E :’= AB inhibit (- postfix -) 
E := Inhibit( A,B ) (- funktional -) 


Technisch betrachtet ist die Inhibition nichts anderes als eine UND-Verknüpfung des Eingangs-Bit A mit dem 


invertierten Zustandswert von Eingangs-Bit B: 





Il ii  /ı ı / TM 01|\hN) a ee ET 


EEE Ne 
E := (Aand ( iwert (B))) (- infix -) 
E := AB invert and (-postfix -) 
E := And( A, Imert( B)) (- funktional -) 


Anmerkung: In der Fachliteratur zur Inhibition ist nicht festgelegt, welches der beiden Eingangs-Bit ( A oder B) 
invertiert wird. Je nach Anwendungsfall entscheidet man sich für eines der beiden und führt anschließend die UND- 
Verknüpfung mit dem anderen Eingangs-Bit durch. Wir legen uns jedoch darauf fest, daß wir die Inhibition stets mit 
der Invertierung des zweiten Eingangs-Bit B durchführen. Und falls einmal die andere Variante erforderlich sein 
sollte, brauchen wir nur die Reihenfolge der Eingangs-Bits A und B gegeneinander vertauschen. 


NAND-Verknüpfung 


Die NAND-Verknüpfung beruht auf einer AND-Verknüpfung, deren Ausgangs-Bit invertiert wird. Bei dieser 
Verknüpfungsfolge erhält das Ergebnis-Bit E den Statuswert 1, solange die Eingangs-Bits A und B nicht 
gemeinsam jeweils den Statuswert 1 haben. In diesem Fall wäre das Ergebnis-Bit 0. 


Die Wertetabelle lautet: 





E := (AnandB ) (- infix -) 
E := AB nand (- postfix -) 
E ’= Nand( A,B) (- funktional -) 


Gebräuchliche Alternativbezeichnungen der der NAND-Verknüpfung sind: 
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e Invertierte-UND-Verknüpfung 


e Invertierte-AND-Verknüpfung 
e Negierte-UND-Verknüpfung 
e Negierte-AND-Verknüpfung 
e NICHT-UND-Verknüpfung 

e NICHT-AND-Verknüpfung 

e NOT-UND-Verknüpfung 

e NOT-AND-Verknüpfung 


Die Wirkungsweise von NAND braucht nicht in einem Computer oder einer Programmiersprache implementiert 
sein, den sie läßt sich mittels einer Kombination aus AND und INVERT durchführen: 





E ’= (=(AAB)) (-algebraisch -) 
E := ( imert ( AandB )) (- infix-) 
E := AB and invert (-postfix -) 
E := Imert( And A,B )) (- funktional -) 


NOR-Verknüpfung 


Die NOR-Verknüpfung beruht auf einer OR-Verknüpfung, deren Ausgangs-Bit invertiert wird. Bei dieser 
Verknüpfungsfolge ist das Ergebnis-Bit FE dann 1, wenn die Eingangs-Bits A und B gemeinsam jeweils den 
Statuswert 0 haben; andernfalls ist das Ergebnis-Bit 0. 


Ihre Wertetabelle lautet: 





E := (AnorB) (- infix -) 
E := ABonor (-postfix -) 
E := Nor A,B) (- funktional -) 


Gebräuchliche Alternativbezeichnungen der der NOR-Verknüpfung sind: 


Invertierte-ODER-Verknüpfung 
Invertierte-OR-Verknüpfung 
Negierte-ODER-Verknüpfung 
e Negierte-OR-Verknüpfung 

e NICHT-ODER-Verknüpfung 

e NICHT-OR-Verknüpfung 

e NOT-ODER-Verknüpfung 

e NOT-OR-Verknüpfung 


Die Wirkungsweise von NOR braucht nicht in einem Computer oder einer Programmiersprache implemeniiert sein, 
den sie läßt sich mittels einer Kombination aus OR und INVERT durchführen: 





- := (=(AVB)) (-algebraisch -) 
E := (imert (AorB)) (- infix -) 
E := AB or invert (-postfix -) 
E := Imert( Or( A,B)) (- funktional -) 


XNOR-Verknüpfung 


Bei der XNOR-Verknüpfung ist das Ergebnis-Bit E genau dann 1, wenn die Eingangs-Bits A und B jeweils einen 
gleichen Statuswert haben; andernfalls ist das Ergebnis-Bit 0. 


Die Wertetabelle lautet: 





E := (AxnorB ) (- infix-) 
E := AB xnor (- postfix -) 
E :=Xnror( A,B) (- funktional -) 


Gebräuchliche Alternativbezeichnungen der der NOR-Verknüpfung sind: 


e Exklusiv-invertierte-ODER-Verknüpfung 
e Exklusiv-invertierte-OR-Verknüpfung 

e Exklusiv-negierte-ODER-Verknüpfung 
e Exklusiv-negierte-OR-Verknüpfung 

e Exklusiv-NICHT-ODER-Verknüpfung 


e Exklusiv-NICHT-OR-Verknüpfung 
e Exklusiv-NOT-ODER-Verknüpfung 
e Exklusiv-NOT-OR-Verknüpfung 


Die Wirkungsweise von XNOR braucht nicht in einem Computer oder einer Programmiersprache implementiert 
sein, den sie läßt sich mittels einer Kombination aus XOR und INVERT durchführen: 





E := (=(AVB)) (-algebraisch -) 
E := (inert ( Axor B)) (- infix -) 
E := AB xor invert (-postfix -) 
E := Imert( Xor(  A,B)) (- funktional -) 


Bit-Vergleiche 


Bit-Vergleiche vergleichen die Statuswerte zweiter Bits miteinander. Dabei kann der Statuswert des ersten Bit 
gleich, ungleich, größer als oder kleiner als der Statuswert des zweiten Bit sein. 


Ungleich 


Das Ergebnis-Bit F ist genau dann 1, wenn die Statuswerte der Eingangs-Bits A und B ungleich sind; andernfalls 
ist das Ergebnis-Bit 0. 


Ihre Wertetabelle lautet: 


(-algebraisch -) 


(-infix -) 





(- postfix -) 
:= NotEquall A,B ) (- funktional -) 


Das Ergebnis dieser Operation stimmt stets mit dem von XOR überein. Somit kann sie durch XOR ersetzt und 
folgendermaßen durchgeführt werden: 





E := (AxorB) (- infix -) 
E := ABxor (- postfix -) 
E :=Xor(A,B) (-funktional -) 


Gleich 


Das Ergebnis-Bit F ist genau dann 1, wenn die Statuswerte der Eingangs-Bits A und B gleich sind; andernfalls 
ist das Ergebnis-Bit 0. 


Die Wertetabelle lautet: 


(-algebraisch -) 
(- infix -) 





(- postfix -) 
:= Equall A,B) (- funktional -) 


nAmMnMm Ba 


Das Ergebnis dieser Operation stimmt stets mit dem von XNOR überein. Somit kann sie durch XNOR ersetzt und 
folgendermaßen durchgeführt werden:: 





E := (AxnorB ) (- infix -) 
E := AB xnor (- postfix -) 
E := Xror( A,B) (- funktional -) 


Größer-als 


Das Ergebnis-Bit FE ist genau dann 1, wenn der Statuswert des Eingangs-Bit A größer ist, als der Statuswert des 
Eingangs-Bit B ; andernfalls ist das Ergebnis-Bit 0. 


Ihre Wertetabelle lautet: 


(-algebraisch -) 
(- infix -) 
(-postfix -) 

:= LargerThan( A,B ) (- funktional -) 





nRAmnlm m 


Das Ergebnis dieser Operation stimmt stets mit dem von INHIBIT überein und kann daher folgendermaßen ersetzt 
werden: 





E := (A inhibit B ) (-infix -) 
E := AB inhibit (- postfix -) 
E := Ihibit( A,B ) (-funktional -) 


Kleiner-als 


Das Ergebnis-Bit F ist genau dann 1, wenn die Statuswert des Eingangs-Bit A kleiner ist als der Statuswert des 
Eingangs-Bit B ; andernfalls ist das Ergebnis-Bit 0. 


Die Wertetabelle lautet: 


(-algebraisch -) 
(- infix -) 
(- postfix -) 
:= LessThan( A,B ) (- funktional - ) 





nRAmnlm m 


Diese Operation kann durch eine LARGER-THAN-Operation ersetzt werden, bei der man die Reihenfolge der 


Eingangs-Bit A und B gegeneinander vertauscht: 


(- infix -) 
(- postfix -) 


(- funktional -) 
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E := BA inhibit (- postfix -) 
E := Ihibit( B,A ) (- funktional -) 


Übung 1) 


Das nachstehende Übungsblatt »Bit-Operationen« enthält einige Wertetabellen. Vervollständigen Sie diese. (Einen 
Mausklick auf die Grafik des Übungsblattes vergrößert Ihnen dieses.) 


Übungsblatt: Bit-Operationen 


Legende: A, B: Eingangs-Bits 
E : Ergebnis-it 
2: Zwischenergebnis-Bit 
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Operationen auf Byte / Bytegruppen 


Nur sehr selten sind Mikroprozessoren und Mikrocontroller so konzipiert, daß sie gezielt einzelne Bits bearbeiten. In 
der Regel operieren sie auf Gruppen von Bits, den sogenannten Bytes, oder auch auf Gruppen von Bytes. Wie oben 
ausgeführt, kann die Bytelänge (Bytebreite) - d.h. die Anzahl der Bits für ein Byte - je nach Hardwaredesign variieren. 
Am gebräuchlichsten ist heutzutage eine Bytelänge zu 8 Bit. Unsere weiteren Betrachtungen beziehen sich daher auf 
Bytes zu 8 Bit, die aufgrund ihrer 8-Bit-Länge auch Oktett genannt werden. Mit Nibbel bezeichnet man hingegen 
Bitfolgen mit einer Länge von 4 Bit. Jede Ziffer einer hexadezimalen Zahl drückt somit ein Nibbel aus. 


Wenn die Computerhardware nur auf Bytes bzw. auf Gruppen von Bytes operiert, muß sie so beschaffen sein, daß 
Bit-Operationen stets auf alle beteiligten Bits eines Bytes bzw. einer Bytegruppe angewendet werden. Doch durch 
geschicktes Anwenden der auf diesen Bitfolgen arbeitenden Mikroprozessor-Operationen lassen sich dennoch 
gezielt einzelne Bytes modifizieren. Mit Kenntnis der oben beschriebenen Bit-Operationen sollten Sie nachvollziehen 
können, wenn eine dieser Bit-Operationen nun bitweise auf eine Gruppe von Bytes zeitgleich stattfindet. 


Operiert man auf zwei Bytes (oder auf zwei Bytegruppen), so verarbeitet dabei dabei jeweils Bits, die in diesen 
Bytes (bzw. in diesen beiden Bytegruppen) an gleicher Bit-Positionen stehen, so werden also 


e die beiden Bits an Bit-Position O0 miteinander verarbeitet; 
e die beiden Bits an Bit-Position 1 miteinander verarbeitet; 
e die beiden Bits an Bit-Position 2 miteinander verarbeitet; 
e die beiden Bits an Bit-Position 3 miteinander verarbeitet; 
© USW. 


Programmiersprachen, die lauffähige Programme für eine bestimmte Computerplattform hervorbringen, müssen 
deren Hardwaregegebenheiten berücksichtigen. Ihre Bit-Operationen beziehen sich daher auf Bytes bzw. 
Bytegruppen. In der Regel stellen Programmiersprachen wenigstens folgende Operationen bereit: 


e Bitweise Operationen: 
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e Für Zahlen-Vergleiche: 
0 = (Gleich) 
° x (Kleiner-Als, für vorzeichenbehaftete Integer) 
° u (Kleiner-Als, für vorzeichenlose Integer) 


Mittels diesen wenigen Operatoren lassen sich alle weiteren bitweise Operatoren durch geschickte Kombination 
erstellen. Wir werden das exemplarisch für die Programmiersprache Forth vorstellen. Was Sie dabei lernen, können 
Sie hinterher auf andere Programmiersprachen übertragen. 


Für folgenden Betrachtungen gehen wir davon aus, daß die genannten Operationen uno, or, xor, -, < Und u auf 
sogenannte Zellen operieren. Jede Zelle ist dabei eine Bytegruppe aus 2 Byte zu je 8 Bit. Eine Zelle ist somit 16 Bit 
(=2*8Bit) groß. Eine Zelle ist zugleich der Speicherraum in dem einfache Ganzzahlen (Integer) abgelegt und 
behandelt werden. 


Die Struktur von Integer ist jedoch etwas komplexer als man zunächst vermuten mag. So erhält man beispielsweise 
von einer positiven Integer nicht ihr negatives Pendant, indem man 


e einfach sämtliche Bits der positiven Zahl invertiert, oder 
e ein Bit als Vorzeichen-Bit festlegt und lediglich dieses invertiert. 


Tatsächlich ist der Vorgang etwas komplexer. Das zeigt bereits ein wechselseitiger Vergleich der Bitmuster 
folgender Integer: 


7654302710765 4321090 
[olojolojolojolojlo/ojlo/o]lo/olo/o] Die zahl 0 

7 6 re Zee ee 0 
falafalafalafalafalalatalata]ntTn] Dienegative Zahl -1 


4 


[olololojololojolololojo/o]o]o]1] Diepositive zahl 1 


4 vu 2 4 < 


3 
5 1 
fatal lafalalafahalalsfatalı]nTol| Dienegative Zahl -2 
7 5 1 
[ololojloJololojolololojololo]t1lo] Diepositivezahl 2 
5 1 
5 1 


78 3008 78 ce 1 ad 

76 302 0765432 10 
1 1]1 

6 3 2 076543 2 10 
1 

76 302 076 43 2010 
1 

76 302 076 43 2 10 

1 





4 
1 1 

4 

4 5 
[ololojololojolof1jolol1/ojol1l?] Diepositvezahl 147 
4 5 
ftlafalafalslılıfolsiılolttilolt]| Dienegative Zahl -147 


Um das Vorzeichen einer Integer zu negieren (d.h. gegen das jeweils andere Vorzeichen auszutauschen) werden wir 
weiter unten eine Routine namens NEGATE anlegen, die diese Aufgabe erledigt. 


Wir merken uns: Das Negieren einer Integer ergibt ein anderes Bitmuster als das Invertieren all Ihrer Bits. 





Bit-Operationen auf Zellbreite 





Unsere Betrachtungen für »Bit-Operationen auf Zellbreite« werden wir in drei alternativen Codemodellen 
entwickeln, und zwar zweimal auf Basis von Pseudocode und einmal auf Basis von echtem Programmcode. Zu 
Vergleichs- und Verständniszwecken werden wir diese drei Codemodelle für jede einzelne Operation in ein 
übersichtliches Tabellenschema eintragen: 


& Pseudocode Pseudocode 


Dieser Tabellenbereich enthält infix- / funktional-orientierten Pseudocode. Dieser Tabellenbereich enthält postfix-orientierten Pseudocode. 


© 


PDk-Lools 
Dieser Tebereiu I HE tın Es DEM osrammcoce. 





Somit tragen wir 


e in das Tabellenfeld »A« einen infix- bzw. funktional-orientierten Pseudocode ein; 
e in das Tabellenfeld »B« einen postfix-orientierten Pseudocode ein; und 
e in das Tabellenfeld »C« einen in Forth formulierten realen Programmcode ein. 


Eine Besonderheit der Programmiersprache Forth ist, daß sie die Postfix-Schreibweise nutzt, also ähnlich dem 
Pseudocode in Tabellenfeld »B«, dabei jedoch etwas schlichter und kompakter auftritt. 


Eine weitere Besonderheit von Forth ist, daß die Namen der in ihr erstellten Routinen sämtliche druckbare 
Schriftzeichen enthalten dürfen, die kein Leerzeichen sind. Erlaubte Namenszeichen sind somit beispielsweise auch: 
2:8: 9: 8: B: 8:8: 8; Boderfe. 


Wo immer solch ungewöhnliche Zeichen in Namen von Forthwörtern auftauchen, handelt es sich nicht um Syntax- 
oder Operationszeichen, sondern um Schriftzeichen, die, wie wie Buchstaben und auch Ziffern, den Namen des 
Forthwortes darstellen; jedoch werden einige dieser ungewöhnlichen Zeichen von Forth-Programmierern bevorzugt 
hinsichtlich bestimmter Bedeutungszusammenhänge genutzt. Dies ermöglicht Forth-Programmierern ein 
verbessertes Verständnis und eine symbolisch unterstützte Lesbarkeit ihres Programmcodes. Doch brauchen wir 
uns darüber keine Gedanken machen, denn wir nutzen den Forth-Code wegen seiner formalen Einfachheit und 
Kompaktheit. Wir kommen so zu einem raschen Verständnis aller mittels Forth formulierter »Bit-Operationen auf 
Zellbreite«. 


Für das Verständnis der »Bit-Operationen auf Zellbreite« sind Sie jedoch nicht dem Forth-Code in Tabellenfeld »C« 
ausgeliefert, sondern können sich alternativ den Pseudocode-Schreibweisen der Tabellenfelder »A« und »B« 
zuwenden. 


Mit den in den Tabellenfelder »A« bis »C« präsentierten Codezeilen sollten Sie der Lage sein äquivalente Routinen 
in einer Programmiersprache Ihrer Wahl zu schreiben und lauffähig zu machen. Dabei sollten Sie jedoch im Auge 


behalten, daß die hier formulierten Pseudocodezeilen und Forth-Codezeilen durchgehend Bitmuster auf Zellenbreite 
behandeln und daher typenlos sind. Wie die beteiligen Bitfolgen dabei modifizieren bzw. modifiziert werden, liegt 
ausschließlich daran, welche Operationen dabei innerhalb der Routinen durchgeführt werden. Am Ende werden eine 
(ggf. auch mehrere) zellbreite Bitfolgen in einer definierten Reihenfolge als Ergebnis zurückgegeben. Um Ihnen 
jedoch eine Orientierung zu geben, wie die beteiligten Bitfolgen vorzugsweise anzusehen sind, nutzen wir in allen 
Pseudocodezeilen einfache Variablen-Schreibweise. Diese legt jedoch keine Datentypen fest, sondern gibt lediglich 
Hinweise, wie die beteiligten Bitfolgen vorzugsweise zu deuten sind. Für Variablen und Parameter nutzen wir 
folgende Schreibweise: 


. n: vorzeichenbehaftete Integer 

e +n: vorzeichenbehaftete positive Integer 
e u: vorzeichenlose Integer 

. f: Boolescher Wahrheitswert (Flag) 


Ein letzter Hinweis: Falls in Tabellenfeld »C« irgendwo der Hinweis » //vordefiniert///« notiert sein sollte, weist 
das darauf hin, daß diese Operation und ihr Forthname bereits im Forth-System implementiert ist. Es handelt sich 
dann um eine grundlegende und herstellerseitig vorimplementierte Operation des Forth-Systems. 


Und nun zu den »Bit-Operationen auf Zellbreite« für Computer mit einer Zellgröße von 2 Byte zu 8 Bit je Zelle: 


BIT/BYTE (-n) 
BitPerByte (-n) 


Liefert mit n die Anzahl der Bits je Byte. 
def BitPerByte():( n ) def BitPerByte 
t 


setn := 8; setn := 8 
return n ; return n ; 


r 





8 constant BIFERWO PDF Tools Demo 1") 


Die runden Klammern ( und ) am Ende des Forth-Codes legen einen Kommentartext fest. Als Kommentartext 
gilt alles, was zwischen den beiden Klammern notiert ist. 


BYTE/CELL (-n) 
BytePerCell (-n) 


Liefert mit n die Anzahl der Bytes je Zelle. 


def BytePerCell():( n ) def BytePercell 
{ { 


set n ı= 2; setn := 2, 
return n ; return N; 


2 CONSTANT BYTE/CELL 





ALL.ONE (-u) 
AllOne (-u) 


Liefert mit u eine Zahl, bei der alle Bits 1 sind. 


Schema: 


MSB 
LSB 


765432710 


Alle Bit sind 1 


def AllOne():( u ) def AllOne 
{ 


set u ;= -1; set u != 
return u ; return u ; 


} } 


-1 CONSTANT ALL.ONE 





ALL.ZERO (= u) 
AllZero (=) 


Liefert mit u eine Zahl, bei der alle Bits 0 sind. 


Schema: 


MSB 
LSB 


765432710 


olololoJolololo 


Alle Bit sind O 





def AllZero():( u ) def AllZero 
{ 


# 
set u := 0; set u := ®; 
return u ; 


# 


© CONSTANT ALL.ZERO 





EVO PDF Tools Demo 
AND (ul u2 - u3) 
And (ul u2 -- u3) 


Liefert mit u3 das Ergebnis der bitweisen AND-Verknüpfung von uf und u2. 


def And( ul , u2 ):( u3 ) def And (ul u2 -- 03) 
i 


set v3 := (ulAu2); set us := ulu X; 
return u3 ; return u3 ; 


} } 


//vordefiniert//// { ul u2 -- u3 ) 





OR (ul u2 - u3) 
Or (ul u2 -- u3) 


Liefert mit u3 das Ergebnis der bitweisen OR-Verknüpfung von uf und u2. 


def Or( ul „ u2 ):( u3 ) def Or ( ul u2 -- u3 ) 
£ % 
set 3 := (uVu); set v3 := ul u2V; 
return u3 ; return u3 ; 


a } 


//vordefiniert//// { ul u2 -- u3 ) 





XOR (ul u2 -- u3) 
xXor (ul u2 - u3) 


Liefert mit u3 da Ergebnis der bitweisen XOR-Verknüpfung von uf und u2. 


def Xor( ul , u2 ):( u3 ) def Xor (ul u2 -- 03) 
{ { 
set 3 := (uVu); set 3 := ul W2V; 
return u3 ; return u3 ; 


Y } 
//vordefiniert//// 





INVERT (u-u) 
Invert (u-u) 


Invertiert alle Bit-Zustände in u ; d.h. jede O wird zu 1, und jede 1 wird zu 0. Das Ergebnis wird als u' 
zurückgegeben. 


Schema: 





Invertieren aller Bits 


def Invert( u ):( u' ) def Invert 


{ X 
set u' := Xor( u ,„ AllOne() ) ; set u' := u AllOne Xor 
return u! ; return u! ; 


: INVERT ALL.ONE XOR ; 


EVO PDF Tools Demo 





Das Forthwort : leitet die Erstellung einer Routine (d.h. eines neuen Forthwortes) ein. Es folgt ein Leerzeichen und 
anschließend der Name des neuen Forthwortes. Alles danach folgende sieht Forth als Anweisungen an und 
kompiliert diese in die neue Routine; allerdings werden Kommentare nicht hineinkompiliert. Sollte Forth auf einen 
Fehler oder eine ihm unbekannte Anweisung treffen, bricht es den Kompilervorgang sofort ab. Erreicht der Forth- 
Kompiler schließlich das Forthwort ; wird der Kompilervorgang abgeschlossen und das neue Forthwort dem 
Forth-System augenblicklich verfügbar gemacht. 


INHIBIT (ul u2 - uf‘) 
Inhibit (da uf) 


Übernimmt u1 ‚doch werden dabei alle Bit-Positionen auf 0 gesetzt, die in u2 den Wert 1 haben. Das 
Ergebnis wird als u1' zurückgegeben. u2 legt also fest, welche Bit-Positionen von uf durchgelassen oder 
gehemmt (blockiert / degradiert) werden. 


Schema: 





(olzloJolol1Jolo| ur 


Hemmen ausgewählter Bits 





def Inhibit( ul , u2 ):( ul' ) def Inhibit (ul u2 -- ul' ) 
% 
set ul! := And( ul , Invert( u2 )) ; set ul! := ui u2 Invert And ; 


return ul' ; return ul' ; 


} } \ 





: INHIBIT INVERT AND ; (u ı2-- u') 


NAND (ul u2 -- u3) 
Nand (ul u2 - u3) 


Liefert mit u3 das Ergebnis der bitweisen NAND-Verknüpfung von uf und u2. 


def Nand( ul , u2 ):( u3 ) def Nand ( ul u2 -- u3 ) 


{ 
set u3 := Invert( And( ul, u2 )) ; set u3 !: ul u2 And Invert 


return u3 ; return 


} } 


AND INVERT ; ( ul u2 -- u3 ) 





NOR (ul u2 -- u3) 
Nor (ul u2 - u3) 


Liefert mit u3 das Ergebnis der bitweisen NOR-Verknüpfung von uf und u2. 


def Nor( ul , u2 ):( u3 ) def Nor ( ul u2 -- u3 ) 

{ € 
set u3 := Invert( Or( ul, u2 )) ; set u3 := ul u2 Or Invert 
return u3 ; return u3 ; 


r 





OR INVERT ; (ul u2 -- u) 
EVO PDF Tools Demo 

XNOR (ul u2 - u3) 

Xnor (ul u2 -- u3) 


Liefert mit u3 das Ergebnis der bitweisen XNOR-Verknüpfung von uf und u2. 


def Xnor( ul , u2 ):( u3 ) def Xnor ( ul u2 -- u3 ) 
{ 


set u3 := Invert( Xor( ul , u2 )) ; set u3 := ul u2 Xor Invert 
return u3 ; return uS3 ; 


} } 


XOR INVERT ; (ul u2 -- u) 


r 





TRUE (-f) 
True (-f) 


Liefert ein Flag mit dem definierten Booleschen Wahrheitswert »true«. 


Schema: 
ö 9 
76543210 
»true« 
def True():( f ) def True (--f) 


{ L 


set f := 
return f ; 


3 } 


Allone() ; set f : 


= AllOne ; 
return f ; 


ALL.ONE CONSTANT TRUE 





FALSE (-f) 
False (-f) 


Liefert ein Flag mit dem definierten Booleschen Wahrheitswert »false«. 


Schema: 


N MSB 


en 
un 
_ 
65432710 


»false« 





oO 


def False():( f ) def False (--f) 
{ 


{ 
set f : AllZero() ; set f : AllZero ; 


return f ; return f ; 





ALL.ZERO CONSTANT FALSE ( -- FALSE ) 


NOT (u-f) 
Not (u-f) 
EVO PDF Tools Demo 
Liest n als Flag und liefert dessen negierten Wahrheitswert als konsolidiertes Boolesches Flag (true oder 
false). 


def not( u): f) def nt (u--f) 
{ 


{ 
set f := = False() ) ; set f:: 


= urFalse =; 
return return f ; 


} x 





BOOL (u-f) 
Bool (u-f) 


Liest n als Flag und liefert dessen konsolidierten Wahrheitswert als Boolesches Flag (true oder false). 


def Bool( u ):( f ) def Bool (u--f) 


< 
Not( Not( u )) ; set f . 
return i 


set f := 
return f ; 


u Not Not ; 
} } 


NOT NOT ; 





< (ni n2 -f) 
LessThan (nin2 -f) 


Das Flag f ist »true«, wenn nT kleiner als n2 ist; anderenfalls ist es »false«. 


def LessThan( n1, n2 ):(f ) def LessThan (nn --f) 
t 


set f:= (n<n); set f := 
return f ; return f ; 


} } 
//vordefiniert//// {nin2--f) 


ni.n2 <- ; 





> (nin2 -f) 
LargerThan (nin2 -f) 


Das Flag f ist »true«, wenn nT größer als n2 ist; anderenfalls ist es »false«. 


def LargerThan( n1, n2 ):(f) def LargerThan (nın --f) 


set f : LessThan( n2 , ul ) ; set f : n2 ni LessThan ; 


return f ; return f ; 


} } 


(nın --f) 





= (ni n2 - f) 
Equal (nin2 -f) 


Das Flag f ist »true«, wenn nT gleich n2 ist; anderenfalls ist es »false«. 


def Equal( n1 ,;, n2 Y:( f) def Equal ( ni n2 == ff) 


£ 
(niı=n2); set f : ni .n2 


set f := 
return f ; 


} amıın 


I I DE 
//vordefiniert//// {nm-f) 





<> (ni n2 -f) 
NotEqual (nin2 -f) 


Das Flag f ist »true«, wenn nT ungleich n2 ist; anderenfalls ist es »false«. 


def NotEqual( n1, n2 ):(f ) def NotEqual (nın --f) 
x 


set f: Not( Equal( n1 , n2 )) ; set f 


= = ni n2 Equal Not ; 
return f ; return f ; 


(nın2 --f) 





U< (ul u2 -f) 
ULessThan (ul 2 -f) 


Das Flag f ist »true«, wenn uT kleiner als u2 ist; anderenfalls ist es »false«. 


def ULessThan( ul , u2 ):(f) def ULessThan (uu2--f) 


Ah 
set f : (ul < u2); set. f ul. ua. 5 


return f ; return f ; 


} } 


//vordefiniert//// {nin --f) 





(ul u2 -f) 


U> 
(ul 2 -f) 


ULargerThan 
Das Flag f ist »true«, wenn uT größer als u2 ist; anderenfalls ist es »false«. 


def ULargerThan 


def ULargerThan( ul , u2 ):(f ) 


ULessThan( u2 , ul ) ; set f ;= 
return f ; 


set f := 
return f ; 
} 


(vu1u2=f) 


u2 ul ULessThan ; 


> 
(ul u -- f) 


SWAP U< ; 


(ul u22 -f) 


U= 
(ul 2 -f) 


UEqual 
Das Flag f ist »true«, wenn uf gleich u2 ist; anderenfalls ist es »false«. 


def UEqual 


def uvEqual( ul , u2 ):( f ) 
set f : 


set f := Equal( ul, u2); = 
return f;; return f ; 
} 





(wuu--f) 


ul u2 Equal ; 


} 
; (ul u2--f) 


U<> (u1 u2 - r}EVO PDF Tools Demo 
UNotEqual (ul 2 -f) 

Das Flag f ist »true«, wenn uf ungleich u2 ist; anderenfalls ist es »false«. 
def UNotEqual 


def UNnotEqual( ul , u2 ):( f ) 
set f : 


set f := NotEqual( ul, u2 ) ; = 
return f ; return f ; 
} 





( ul u2 == 7) 


ul u2 NotEqual ; 


3 
; (uu--f) 


in.=F) 
(n-f) 


0= 
EqualZero 
Das Flag f ist »true«, wenn n gleich 0 ist; anderenfalls ist es »false«. 


def EqualZero 


def EqualZero( n ):( f ) 
set f : 


Equal(ln, 0); : 
return 5 


set f := 
return f ; 


in=-fT} 
(nf) 


0<> 
NotEqualZero 





nf) 


n © Equal ; 





Das Flag f ist »true«, wenn n ungleich 0 ist; anderenfalls ist es »false«. 


def NotEqualZero( n ):( f ) def NotEqualZero (n--f) 


{ 
set f: NotEqual(l n, ©) ; set f' : n © NotEqual ; 


return f ; return f ; 


F } 





0> (n-f) 
LargerThanZero (n-f) 


Das Flag f ist »true«, wenn n größer als O ist; anderenfalls ist es »false«. 


def LargerThanzero( n ):( f ) def LargerThanzZero Lne=T.) 


set f: LargerThan( n, 0); set f : n © LargerThan ; 


return f ; return f ; 


} } 





0< (n-f) 
LessThanZero (n-f) 


Das Flag f ist »true«, wenn n kleiner als O ist; anderenfalls ist es »false«. 


def LessThanZero( n ):( f ) def LessThanZero (n=f) 


set f: 


= Lessthan( n,0®); 
return f ; 


:= n 0 LessThan ; 


{ 
EVO PDF Te ols: Demo 





POSITIVE? (n-f) 
IsPositive (n-f) 


Das Flag f ist »true«, wenn n eine positive Integer ist; anderenfalls ist es »false«. 


def IsPositiv en ):( f ) def IsPositiv (n--f) 
{ 


set f : LargerThanzero( n ) ; set f : 


n LargerThanzero ; 


return f ; return f ; 


+ $ 


: POSITIV? 





NEGATIVE? (n-f) 
IsNegative (n-f) 


Das Flag f ist »true«, wenn n eine negative Integer ist; anderenfalls ist es »false«. 


def IsNegative( n ):( f ) def IsNegative (n--f) 


set f: LessThanzero( n ) ; set f: n LessThanzero ; 


return f ; return f ; 


} } 


: NEGATIVE? e< ; 





NEGATE (n- m) 
Negate (n= N‘) 


Ändert das Vorzeichen der Zahl n (jedoch nicht deren Betrag) und gibt das Ergebnis als n’ zurück. 


e Ist n eine positive Integer, so gibt NEGATE deren negatives Pendant zurück. 


e Ist n eine negative Integer, so gibt NEGATE deren positives Pendant zurück. 
(Diese Operation entspricht damit einer Multiplikation von n mit -1..) 


def Negate( n ):( n' ) def Negate (n-- 
{ 
set n' := Invert({n) +1; set f:: 


= nInvert 1+; 
return f ; return f ; 


} } 


: NEGATE INVERT 1+ ; 





BYTE>BIT (+n1 - n2) 
ByteToßit (+n1 - n2) 


Rechnet +n1 Bytes in Bits um Das Ergebnis wird als n2 zurückgegeben. 


def ByteToBit( n1 ):( n2 ) def ByteToBit (n1--n2) 


{ 
set n2 := Abs( ni ) * BitPerByte() ; set n2 := ni Abs BitPerByte * ; 


return n2 ; return n2 ; 


} } 


: BYTE>BIT ABAENONPBF Tools Demo { +1 -- "2 ) 





BIT>BYTE (+n1 - n2) 
BitToByte (+n1 - n2) 


Rechnet +nT Bits in Bytes um. Das Ergebnis wird als n2 zurückgegeben. 


def BitToByte( n1 ):( n2 ) def BitToByte (n1--n2) 


{ 
set n2 Negate( set n2 := ni Abs 
Abs( n1 ) /floor Negate( BitPerByte() ) BitPerByte Negate 
yes /floor Negate ; 
keturn ın2 7 return n2 ; 


} } 


: BIT>BYTE ABS BIT/BYTE NEGATE / NEGATE ; (n1--n2) 





BIT/CELL (-n) 
BitPerCell (-n) 


Liefert mit n die Anzahl der Bits je Zelle. 


def BitPerCell():( n ) def BitPerCell (--n) 

{ { 
set n := ByteToBit( BytePercell() ) ; set n := BytePerCell ByteToBit ; 
return n ; return n ; 


BYTE/CELL BYTE>BIT CONSTANT BIT/CELL 





<< (u- u) 
LeftShift (u-u) 


Logische Links-Verschiebung der Bits in u um eine Bit-Position. Dabei verfällt das MSB von u. Das Ergebnis 
wird als u’ zurückgegeben. 


Schema: 


m 
u 
= 


7654321 


© LSB 





(ololxJolzlz]]o To] 


Logische Links-Verschiebung 


def LeftShift( u ):( u' ) def Leftshift 
€ 


set u" := uU*r2; set u' := 
return u! ; return u' ; 


r 





Die logische und die arithmetische Links-Verschiebung sind sind dieselbe Bit-Operation. Somit deckt die logische 
Links-Verschiebung beide ab, und die arithmetische Links-Verschiebung braucht nicht gesondert programmiert 
werden. 


EVO PDF Tools Demo 


<<< (u*+n - u) 
MultiLeftShift (u+n- u) 


Logische Links-Verschiebung der Bitsin u um +n Bit-Positionen. Dabei verfallen u.U. mehrere MSBs von u. 
Das Ergebnis wird als u’ zurückgegeben. 


def MultiLleftShift( u, n ):( u' ) def MultiLeftshift (un-- 


set u! := u; set u! !: 
LooPf( ©, Abs(n) - 1) 0 
n Abs 1 - 
set u' := LeftShift( u' ) ; LOOP{ 
; set u' := u' LeftShift ; 


’ 
return u' ; 


’ 
return u' ; 


ABS @© ?DO << LOOP ; 





Die LOOP-Struktur (auch »Zählschleife« genannt) der Pseudocodes in den Tabellenfeldern »A« und »B« nutzt 
jeweils zwei Parameter. Der erste Parameter ist der Startwert, mit dem die Zählschleife das erste mal durchlaufen 
wird; der zweite Parameter ist der Endwert, mit dem die Zählschleife das letzte mal durchlaufen und dann beendet 
wird. Beginnt eine Zählschleife mit dem Startwert 0, so ist der Endwert häufig um 1 zu mindern, um die gewünschte 
Anzahl an Schleifendurchläufen zu erreichen. Mit jedem Schleifendurchlauf werden die zwischen den geschweiften 
Klammern der LOOP-Struktur aufgeführten Anweisungen ausgeführt. 


Der Forth-Code in Tabellenfeldern »C« verzichtet bei Zählschleifen auf geschweifte Klammern. Statt dessen wird die 
Zählschleifen mit dem Forthwort ?DO eingeleitet, und mit dem Forthwort LOOP abgeschlossen. Mit jedem 
Schleifendurchlauf werden die dazwischen stehenden Anweisung der Reihe nach ausgeführt. Eine Erleichterung bei 
Forth ist, daß die Endwerte nicht um 1 reduziert werden müssen, um eine passende Anzahl an Schleifendurchläufen 
zu erhalten, sofern der Startwert einer Zählschleife 0 ist. Forthwörter sind so beschaffen, daß ihre Nutzung für Forth- 
Programmierer möglichst einfach und verständlich ist. 


LSB.ONE (-u) 
LsbOne (-u) 


Liefert mit u eine Zahl, bei der nur das LSB auf 1 gesetzt ist, alle übrigen Bits sind 0. 


Schema: 


LSB 


m 
0 
= 
76543210 


(oloJolololololı| 


Nur LSB ist 1 


def LsbOne():( u ) def LsbOne 
{ € 


set n = 1; set n := 
return n: ; return n ; 


1 CONSTANT LSB.ONE 





MSB.ONE (-u) 
MsbOne (-u) 


Liefert mit u eine Zahl, bei der nur das MSB auf 1 gesetzt ist, alle übrigen Bits sind 0. 


Schema: 


m 


EvVO BDF-ToolsiDemo 
(1loJololojololo| 


Nur MSB ist 1 


def Msbone():( u ) def MsbOne (-- u) 


& 
set u := MultiLeftShift( set u := LsbOne 
LsbOne() , BitPercell 1 - 
BitPercell() - 1 MultiLeftshift ; 


). # return u ; 
return U ; } 





LSB.ONE BIT/CELL 1- <<< CONSTANT MSB.ONE 





Das LSB wird auf 1 gesetzt und anschließend dessen Status soweit nach links verschoben, daß dieser ins 
MSB gelangt. Die Zahl der Bit-Positionen, um die der Statuswert des LSB dabei nach links verschoben wird, ist 
die Anzahl der Bytes pro Zelle gemindert um 1. 


INT.MAX (-*n) 
IntMax (- *+n) 


Liefert mit +n den maximale vorzeichenbehaftete positive Integer. Diese Zahl ist dadurch gekennzeichnet, 
daß ihr MSB den Wert O hat, und die übrigen Bits 1 sind. 


Schema: 


MSB 


en 
un 
— 
76543210 


(olafılılalalılıl 


größter positiver Integerwert 


def IntMax():( n ) def IntMax ({-n) 
£ 
set n := Invert( Msbone() ) ; set n := MsbOne Invert ; 
return n ; return n ; 


} 3 


MSB.ONE INVERT CONSTANT INT.MAX 





Dieses Vorgehen behandelt die Bitfolge MSB.ONE so, daß daraus die Bitfolge der größten positiven Integer 
entsteht. Grundsätzlich kann jede Bitfolge als Zahl angesehen werden. So repräsentiert die Bitfolge MSB.ONE 
zugleich die kleinste vorzeichenlose Integer, die außerhalb (d.h. oberhalb) des Wertebereichs der 
vorzeichenbehafteten Integer liegt. Mindert man also MSB.ONE um 1, so erhält man den Zahlenwert der 
größten vorzeichenbehafteten positiven Integer. Diese kann also auch berechnet werden. Der entsprechende 
Forth-Code lautet: 


MSB.ONE 1- CONSTANT INT.MAX 


MSB (u-u) 
Msb (u-u) 


Liefert nur das MSB der Zahl u ; die übrigen Bit von u' sind 0. Das Ergebnis wird als u’ zurückgegeben. 


def Msb( u ):( u' ) def Msb (u-- 
{ 


{ 
set u' := And( u , Msbone() ) ; set u' := u MsbOne And ; 
return u! ; return u! ; 


} } 


MSB.ONE AND ; 





LSB (u-u) EVO PDF Tools Demo 
Lsb (u-u) 


Liefert nur das LSB der Zahl u ; die übrigen Bit von u’ sind 0. Das Ergebnis wird als u’ zurückgegeben. 


def Lsb( u ):( u' ) def Lsb su") 

{ X 
set u' := And( u , LsbOne() ) ; set u' := u LsbOne And ; 
return u' ; return u! ; 


’ } 


LSB.ONE AND ; 





>MSB (f-u) 
ToMsb (= u) 


Liest das Flag f und trägt dessen Zustand im MSB von u’ ein; die übrigen Bits von u’ sind 0. 


def ToMsb( f ):( u) def ToMsb - u) 
t 


set u := Msb( Bool( f )) ; set u := f Bool Msb ; 
return u ; return U ; 


BOOL MSB ; 





>LSB (f- u) 
ToLsb (f-u) 


Liest das Flag f und trägt dessen Zustandswert im LSB von u’ ein; die übrigen Bits von u’ sind 0. 


def ToLsb( f ):( u) def ToLsb - u) 


set u := f Bool Lsb ; 


set u := Lsb( Bool( f )) ; 
return u ; 


return u ; 
} 


} 
BOOL LSB ; 





LSB>MSB (u-u) 
LsbToMsb (une) 


Macht das LSB von u zum MSB von u’; die übrigen Bits von u’ werden auf O gesetzt. 


Schema: 


m 
a N 
= = 


76543210 








LSB>MSB 


def LsbToMsb( u ):( u' ) def LsbToMsb (u-- 
set u' := u Lsb ToMsb ; 


set u' := ToMsb( Lsb( u )) ; 
h return u! ; 


return u' ; 
} 


} 
: LSB>MSB LSB >MSB ; 





EVO PDF Tools Demo 


MSB>LSB (u-u) 
MsbToLsb (u-u) 


Macht das MSB von u zum LSB von u’; die übrigen Bits von u’ werden auf O gesetzt. 


Schema: 


m 
u 
= 


765432170 


ad 
(5) 
— 





MSB>LSB 


def MsbToLsb( u ):( u' ) def MsbToLsb -- u") 


set u' := u Msb ToLsb ; 


set u' := ToLsb( Msb( u )) ; 
return u' ; 


return u' ; 


: MSB>LSB MSB >LSB ; 





A>> (n-n) 
ArithRightShift (n-n) 


Arithmetische Rechts-Verschiebung der Bits von n um eine Bit-Position. Das LSB verfällt. Das Ergebnis wird 


als n' zurückgegeben. 


Schema: 


NS MSB 











1[1/|0)0/1[0|1|1 





Arithmetische Rechts-Verschiebung 


def ArithRightShift( n )( n' ) def ArithRightShift (n--n') 
f b 

setn':= n/2; setn' := n2/; 

return n! ; return n! ; 





Bei der arithmetischen Rechts-Verschiebung bleibt das Vorzeichen-Bit (das MSB) erhalten. 


A>>> (n1 +n2 -- n!') 
MultiArithRightShift (n1 +n2 - n!') 


Arithmetische Rechts-Verschiebung der Bits von nT um +n2 Bit-Positionen. Dabei verfallen u.U. mehrere 


LSBs von n1. Das Ergebnis wird als n1' zurückgegeben. 


def MultiArithRightShift( n1 , n2 ):( n1' ) def MultiArithrRightShift (nın2 -- n1') 
{ 
set n1' := nl; set nl" := nt; 
LOOP( © , Abs( n2) - 1) 0 
n2 Abs 1 - 
set n1' := ArithRightShift( n1' ) ; LOOP{ 


’ Ns " ithRightShift ; 
es: EVO PDF Tool Demo " en 


return n1' ; 


ABS 0 ?DO A>> LOOP ; ( ni +n2 -- n1' ) 





>> (u- u) 
RightShift (u-u) 


Logische Rechts-Verschiebung der Bits von u um eine Bit-Position. Das LSB verfällt. Das Ergebnis wird als 


u’ zurückgegeben. 


Schema: 














Logische Rechts-Verschiebung 


def RightShift( u ):( u' ) def RightShift (u--u') 

x £ 
set u' := And( u / 2 , IntMax() ) ; set u' := u 2 / IntMax And ; 
return u' ; return u' ; 


} } 


2/ INT.MAX AND ; 





Bei der logischen Rechts-Verschiebung wird das Vorzeichen-Bit (das MSB) mitverschoben. 


>>> (u +n - u‘) 
MultiRightShift (u+n-u) 


Logische Rechts-Verschiebung der Bits von u um +n Bit-Positionen. Dabei verfallen u.U. mehrere LSBs von 


u . Das Ergebnis wird als u’ zurückgegeben. 


def MultiRightShift( u, n ):( u! ) def MultiRightShift (un 
{ { 
set u' := uU; set u' := U; 
LOOP( ©, Abs(n) - 1) 0 
n Abs 1 - 
:= RightShift( u' ) ; LOOP{ 


set u' := u'RightShift ; 
; } 


return ul' ; 


ABS © ?DO >> LOOP ; 





&<< (uc-u) 
LeftShiftWithCarry (uc-u) 


Logische Links-Verschiebung von u um eine Bit-Position mit Übertrag-Bit c. Dabei verfällt das MSB von u. 
Das Ergebnis wird als u’ zurückgegeben. (Das Übertrag-Bit c wird dabei als Flag-Zustand ausgewertet, 
optimal sollten ihm aber die Zahlen O oder 1 übergeben werden.) 


Schema: 





Logische Links-Verschiebung 
mit Übertrag C (Carry-Bit) 
def LeftShiftwithcarry( u, c ):( u' ) def LeftShiftwithCarry (uc--u') 


set u' := Or( Leftshift( u ) ,„ ToLsb( c )) ; set u' := u LeftShift c ToLsb Or ; 
return u' ; return u' ; 


} } 


>LSB SWAP << OR ; 





&>> (uc-u) 
RightShiftWithCarry (uc-u) 


Logische Rechts-Verschiebung von u um eine Bit-Position mit Übertrag-Bit c . Dabei verfällt das LSB von u. 
Das Ergebnis wird als u’ zurückgegeben. (Das Übertrag-Bit c wird dabei als Flag-Zustand ausgewertet, 
optimal sollten ihm aber die Zahlen O oder 1 übergeben werden.) 


Schema: 


MSB 


am 
u 
— 


76543210 € 





Logische Rechts-Verschiebung 
mit Übertrag C (Carry-Bit) 


def RightShiftwithcarry( u, ce ):( u' ) def RightShiftwithcarry (uc-- 

{ { 
set u' := Or( RightShift( u ) , ToMsb( c )) ; set u' := u RightShift c ToMsb Or ; 
return u! ; return u! ; 


' 


>MSB SWAP >> OR ; 





C<< (u- u) 
CyclicLeftShift (u-u) 


Zyklische Links-Verschiebung der Bits von u um eine Bit-Position, wobei kein Bit verfällt. Das Ergebnis wird 
als u’ zurückgegeben. 


Schema: 





Zyklische Links-Verschiebung 


def CyclicLeftShift( u ):( u' ) def CyclicLeftShift (u--u') 

{ £ 
set u' := LeftShiftwithcarry( u , Lsb( u )) ; set u' := u u Lsb LeftShiftwithcarry ; 
return u' ; return u! ; 


} } \ 
: 0<< ouEKAPDF Tools Demo <(u-- u ) 





C<<< (u+n - u) 
MultiCyclicLeftShift (un- u) 


Zyklische Links-Verschiebung der Bits von u um +n Bit-Positionen, wobei kein Bit verfällt. Das Ergebnis wird 
als u’ zurückgegeben. 


def MulticyclicLleftShift( u, n ):( u' ) def MulticyclicLeftSshift (un--u') 
{ { 
set u! : u set u' !:= u; 
LooP( ©, Abs(n) - 1) 0 
n Abs 1 - 
:= CyclicLeftShift( u' ) ; LOOP{ 
set u' := u' CyclicLeftShift ; 


return u" ; 43 
return u! ; 


ABS 0 ?DO C<< LOOP ; 





C>> (u- u) 
CyclicRightShift (u-u) 


Zyklische Rechts-Verschiebung der Bits von u um eine Bit-Position, wobei kein Bit verfällt. Das Ergebnis wird 
als u’ zurückgegeben. 


Schema: 





Zyklische Rechts-Verschiebung 


def CyclicRightShift( u ):( u' ) def CyclicRightShift (u--u') 

{ x 
set u' := RightShiftwithcarry( u , Msb( u )) ; set u' := u u Msb RightShiftwithCarry ; 
return u' ; return u' 


} } 


DUP MSB &>> ; 


r 





C>>> (un - u) 
MultiCyclicRightShift (u+n-u) 


Zyklische Rechts-Verschiebung der Bits von u um +n Bit-Positionen, wobei kein Bit verfällt. Das Ergebnis 


wird als u’ zurückgegeben. 


def MulticyclicRightShift( u, n ):( u' ) def MultiCyclicRightShift (un--u') 
f { 
set u! := u; set u' := u 
LooP( ©, Abs(n) - 1) 0 
n Abs 1 - 
:= CyclicRightShift( u' ) ; LOOP{ 


r 


:= u' CyclicRightShift ; 


return u' 


ABS © ?DO C>> LOOP ; 





EVO PDF Tools Demo 
C&<< (uc-uc) 
CyclicLeftShiftWithCarry (uc-uc) 


Zyklische Links-Verschiebung der Bits von u um eine Bit-Position mit Übertrag-Bit c , wobei kein Bit verfällt. 
Das Ergebnis wird als u’ zurückgegeben, und mit c' wird das MSB von u zurückgegeben. 

(Das Übertrag-Bit c wird als Flag-Zustand ausgewertet, optimal sollten ihm aber die Zahlen O oder 1 
übergeben werden.) 


Schema: 























Zyklische Links-Verschiebung 
mit Übertrag C (Carry-Bit) 


def CyclicLeftShiftwithcarry( u, c ):( u' def CyclicLeftShiftwithcarry ft uie = iu" oc") 
{ 
set u! : LeftShiftwithcarry( u, c); set u' !: u c LeftShiftwithcarry ; 
set c! ! MsbToLsb( u ) ; set.c! 3 u MsbToLsb ; 


FErLUrNHl 4 Ce 5 return 





OVER MSB>LSB >R &<< R> ; 





Cc&>> (uc-u'c') 
CyclicRightShiftWithCarry (uc-uc) 


Zyklische Rechts-Verschiebung der Bits von u um eine Bit-Position mit Übertrag-Bit c , wobei kein Bit verfällt. 
Das Ergebnis wird als u’ zurückgegeben, und mit c’ wird das LSB von u zurückgegeben. 

(Das Übertrag-Bit c wird als Flag-Zustand ausgewertet, optimal sollten ihm aber die Zahlen O0 oder 1 
übergeben werden.) 














Schema: 
ei cn 
2 a 
76543210 c 
(olololzjolılı]ıl 
NENINININENENTIN 
Zyklische Rechts-Verschiebung 
mit Übertrag C (Carry-Bit) 
def CyclicRightShiftwithcarry( u, ce ):(u',c') def CyclicRightShiftwithcarry ( WE aa ur el) 
{ { 
set u' := RightShiftwithcarry( u,c); set u' := u c RightShiftwithcarry ; 
set c' := Lsb(u); set c' := uLlsb; 
return u" „ cc" ; return u' c'; 
3 } 
ı C&>> OVER LSB >R &>> R> ; [uUe»a"2’) 
en ae "EYo PDF Tools Demo 
BeadShift (ul u2 - ut’ u2') 


BEADSHIFT erwartet zwei Parameter ( uT und u2 ). Dann wird uf logisch rechtsverschoben und das 
Resultat als Ergebniswert u1' zurückgegeben. Desweiteren wird u2 logisch linksverschoben und das Resultat 
als Ergebnis u2' zurückgegeben; wobei zuvor noch das LSB von uf ins LSB von u2' übertragen wurde. 
(Das MSB von u2 verfällt.) 


Schema: 














Logische Rechts- / Links-Verschiebung 
mit LSB-Übertragung (fürs Auffädeln) 


def BeadSshift( ul , u2 ):( ul! , u2' ) def BeadShift ( ul u2 -- ul! u2' ) 


{ 
set ul' := RightShift( ul ) ; set u1' := u1 RightShift ; 
set u2' := LeftShiftWithcarry( u2 , Lsb( ul )) ; set u2' := u2 ul Lsb LeftShiftwithcarry ; 
return ul' , u2' ; return ul' u2' ; 


} } 


: BEADSHIFT OVER LSB &<< SWAP >> SWAP ; ( ul u2 -- ul! u2' ) 





Das wiederholte Ausführen von BEADSHIFT ermöglicht eine umgekehrte Anordnung der Bits von uf im 


Rückgabewert u2'. 


REVERSE (u- u 


Reverse (u-u) 


Dreht die Reihenfolge der Bits in u um, d.h. vordere und hintere Bits werden gegeneinander vertauscht. Das 
Ergebnis wird als u’ auf dem Stack gelegt. 


Schema: 





Reverse Bitreihenfolge 


def Reverse( u ):( u' ) def Reverse (u--u') 
{ { 
set u" ie 0; set u' := 0; 
LOOP( @ ,„ BitPercell() - 1) 0 
BitPercell 1 - 
'= BeadShift( u, u!" ) ; LOOP{ 


set u u' := u u' BeadShift 


hi \ 


return u! ; 





: REVERSE 0 BIT/CELL © 
?DO BEADSHIFT LOOP NIP ; 





Bei beiden Pseudocodes ist die Zahl der Schleifendurchläufe die Anzahl der Bits pro Zelle. Dieser Wert ist 
jedoch um 1 zu mindern, weil der Schleifendurchlauf in bei beiden Pseudocodes mit dem Startwert O beginnt. 
Forth bietet uns diesbezüglich die bereits bekannte Erleichterung, weswegen wir bei Forth auf das Mindern um 
1 auslassen können. 


BIN (=) EVO PDF Tools Demo 
(-- Nur für Forth ! --) 


Schaltet Forth in den binären Ein-/Ausgabe-Modus. Forth behandelt nun alle Zahlen als Binärzahlen. 


: BIN 2 BASE ! ; (-) 
UR.BIN (u-) 
RightPrintBinU (u-) 


Gibt u rechtsbündig als Binärzahl aus. 





def RightPrintBinu( u ):() def RightPrintBinu (u--) 
{ 
rightprint( u ,„ BitPerCell() , base( 2 )) ; u BitPercell 2 base rightprint ; 
} 








: UR.BIN BASE @ >R BIN BIT/CELL U.R R> BASE ! ; (u) 





U.BIN (u-) 
PrintBinU (u-) 


Gibt u linksbündig als Binärzahl aus. 


def PrintBinu( u ):() def PrintBinU (u--) 


leftprint( u , base( 2 )) ; u 2 base leftprint ; 
} 





: U.BIN BASE @ >R BIN U, R> BASE ! ; (u-) 


U.OCT (u-) 
PrintOctU (u-) 


Gibt u linksbündig als Oktalzahl aus. 


def PrintoctU( u ):() def PrintOctU (u-- 


4 
leftprint( u , base( 8 )) ; u 8 base leftprint ; 


BASE @ >R OCTAL U. R> BASE ! ; 





U.DEC (u-) 
PrintDecU (u-) 


Gibt u linksbündig als Dezimalzahl aus. 


def PrintDecU( u ):() def PrintDecUu (u-- 


t 
leftprint( u „ base( 10 )) ; u 10 base leftprint 


} 


BASE @ >R DECIMAL U. R> BASE ! ; 





EVO PDF Tools Demo 


U.HEX (u-) 
PrintHexU (u-) 


Gibt u linksbündig als Hexadezimalzahl aus. 


def PrintHexU( u ):() def PrintHexU (u-- 


{ 
leftprint( u , base( 16 )) ; u 16 base leftprint ; 


} 


BASE @ >R HEX U. R> BASE ! ; 





Studieren Sie jede einzelne der Routinen, bis Sie diese verstanden haben, und spielen Sie die internen Vorgänge 
jeder einzelnen Routine schematisch auf Papier durch, bis Sie die Wirkung der inneren Abläufe verstanden haben. 


Wenn Sie die Wirkung jede dieser Routinen verstanden haben, sollten Sie in der Lage sein, eine Lösung für 
Übung 2) zu schreiben. 


Übung 2) 


Definiere in Forth oder dem obigen Pseudocode eine sinnfreie antizyklische Verschiebung, der zwei Zahlen ( u und 
+n ) als Parameter übergeben werden. Bei Ausführung dieser Routine werden die +n niederwertigsten Bit der Zahl 
u antizyklisch verschoben. Die Wirkungsweise dieser antizyklischen Bit-Verschiebung ist in der nachfolgenden 
Abbildung skizziert und in Ihrem Codeentwurf passend zu formulieren. 

76543210 7 








Antizyklische Verschiebung Antizyklische Verschiebung 


z.B. um 1Bit z.B. um 2Bit 
m m m m 
= 2 = Q 


765432170 





“rg 
(olslılılılolılol 





Antizyklische Verschiebung Antizyklische Verschiebung 
z.B. um A Bit z.B. um 6 Bit 


Die obigen Bit-Operatotionen ausprobieren 


Zum Selbststudium und Ausprobieren der obigen Routinen haben wir den dazu notwendigen Programmcode auf 
Grundlage der Programmiersprache Forth (Forth83) für Sie niedergeschrieben. 


Starten Sie Ihr Forth-System (Forth83), tippen Sie den Inhalt des nachstehenden Screen-Listings ab und speichern 
Sie die abgetippten Screen-Inhalte auf Ihren Datenträger ab. Bei dem hier dargestellten Screen-Listing gehen wir 
davon aus, daß dieses in den Blöcken von Blocknummer 210 bis Blocknummer 249 (inklusive) abgespeichert ist. 


Mit der Anweisung 


210 LOAD (anschließend bitte die Enter-Taste drücken) 


E DF Tools D 
liest Forth den in Block 210 hinterlegten Erod mpilian een aan ihn aus. In Zeile 16 (von Block 210) 


trifft Forth dabei auf die Anweisung --> . Diese weist Forth an, den Code des numerisch nächsten Blocks 
einzulesen, zu kompilieren auszuführen. Jedes mal wenn Forth dabei auf die Anweisung --> trifft, liest es den 
jeweils nächsten numerischen Block ein, kompiliert diesen und führt dessen Code aus. Derart arbeitet Forth mittels 
--> sämtliche der nachstehenden Codeblöcke bis Blocknummer 249 (inklusive) ab. Anschließend sind die in 
diesen Blöcken definierten Routinen in den Arbeitsspeicher ihres Computers kompiliert und liegen dort ausführbar 
vor. Nun können Sie jede dieser Route interaktiv ausprobieren und in den Programmcode eigener Forth-Routinen 
einfließen lassen. Testen Sie das ganze nach Herzenslust aus. 


SCR # 210 
a de ee ee nen nn +): 
2 (| BIT- UND FLAG-OPERATIONEN I): 
3 | FHHHHHHaaaaHaaaaa aaa Hana aaa Haan ana nen +) 
4 ( ): 
5 ( wir stellen Ihnen hier eine Lehrsammlung von Bit- und Flag- )' 
6 ( Operatoren vor, um Sie mit diesem Themenbereich vertraut zu ): 
7 ( machen. Dabei fuehren wir Sie in die Philosophie von Forth ): 
8 ( ein, wie es Programmieraufgaben strukturiert und loest. vr 
| ); 
10 ( Einige Woerter, die wir Ihnen in dieser Sammlung vorstellen, ): 
11 ( werden in Ihrem Forth-System bereits enthalten sein. Dennoch ) 
12 ( legen wir manche von diesen neu an, um Ihnen ein lueckenlos- y 
13 ( ses Veraendnis dieses Themenbereichs zu ermoeglichen. Dazu ): 
14 ( haben wir Ihnen die Woerter so definiert, dass Sie diese ): 
15 ( einzeln ausprobieren und leicht verstehen koennen. ): 
16 -.-> : 
SCR # 211 

a; ( Forth vorbereiten ) 

2 

3 __WARNING OFF ( Kompiler-Hinweise abschalten ) 

4 _ DECIMAL ( dezimalen E/A-Modus aktivieren ) 

5 

6 

T 

8 

9 


r 
© 


11 


12 
13 
14 
15 
16 --> 
SCR # 212 
1 (1. Hardware Abhaengigkeiten ): 
2 r 
3 ( BIT/BYTE -- N Liefert Anzahl der Bits je Byte. ): 
5 ( BYTE/CELL -- N Liefert Anzahl der Bytes je Zelle. ): 
6 JH 
7 ): 
8 ( Den Speicherraum, den Forth zur Aufnahme einer Integer ): 
9 benoetigt, wird in Forth als "Zelle" bezeichnet. ): 
10 ( ): 
=. ) 
12 ( ). 
16  --> 
SCR # 213 

1 ( 1. Hardware Abhaengigkeiten ) 

2 

3 

4 8 ( Anzahl der Bit je Byte, Wert ggf. anpassen! ) ; 
5 __CONSTANT BIT/BYTE ( -- Bit_je_Byte ): 
. ; 
7 

8 CREATE =MARKE= ( Hilfskonstrukt =MARKE= ) 

9 HERE © ,„ HERE - ABS ( Ermittelt Bytes je Zelle ) 
10 FORGET =MARKE= ( =MARKE= nun vergessen! ) 
ı1 ( Auf dem Stack liegt nun die ) 


12 ( Anzahl der Bytes je Zelle. ) 
































13 _CONSTANT BYTE/CELL ( -- Bytes_je_zelle ). 
14 
15 
16  --> 
SCR # 214 EVO PDF Tools Demo 

1 ( 2. Bit- und Flag-Operationen ) 

2 ) 

3 ( 2.1. Grundlegende Bitmasken ) " 2 
a Kl ) ö N 
5 ( ALL.ONE -- u Bei der Zahl u sind alle Bits 1. I 3 3 
6 ( ALL.ZERO --Uu Bei der Zahl u sind alle Bits ®. ) 

7 ) 

8 ( 2.2. Grundlegende bitweise Operatoren ) ss1.o.o ssıo|o 
KL ) He SE 
10 ( AND ul u2 -- u3 Liefert u3 als Ergebnis der AND- ) [ml "lol 
1 ( Verknuepfung von ul und u2. ) HA A 
12 ( OR ul u2 -- u3 Liefert us als Ergebnis der OR- ). om] olo| 
13 Verknuepfung von ul und u2. ) ur-@]l emr[el 
14 ( XOR ul u2 -- u3 Liefert u3 als Ergebnis der XOR- ) 

15 ( Verknuepfung von ul und u2. ) 

16 --> | 

SCR # 215 


( 2. Bit- und Flag-Operationen ) 
( 2.1. Grundlegende Bitmasken ) 


CONSTANT ALL.ONE ( -- alle_Bit_sind 1) 
© CONSTANT ALL.ZERO ( -- alle Bis_sind_® ) 


oo onsoulPrwnhH 
ı 
r 


( 2.2. Grundlegende bitweise Operatoren ) 









































10 
ı1 ( AND //vordefiniert//// {ul u2 -- 8) 
12 ( OR //vordefiniert//// {ul u2 -- 3) 
13 ( XOR //vordefiniert//// { ul u2 -- u3 ) 
14 
15 
16 --> 

SCR # 216 a a 
1 ( 2.3. Bitweise Operationen mit Invertierung ) = 654321 : 
2 ) o]ıJol:Jolılılı 
3 ( 2.3.1. Einer-Komplement ) Frage 
4 ( ) ıJoJıJo[ıJoJoJo 
5 ( INVERT u-- u Invertiert alle Bits von u; d.h. ) 











































































































6 ( jede @ wird zu 1 veraendert, ): Invertieren aller Bits 
7 ( und jede 1 wird zu einer ©. ) 
Ei 20048 3 
9 ( 2342: Inhibition ) 76543210 
10  ( ): olıJoJıJolıJılı] u 
11 ( INHIBIT ul u2 -- ul’ Das Ergebnis u3 uebernimmt alle ) Don oh I. 
12 ( Bits von ul; wobei aber jene ) LITEELTY 
13 ( Bit-Positionen genullt werden, ) oTılololoTılolo] ut 
14 ( die in u2 den Wert 1 haben. ) 
15 ( ) : Inhibitieren ausgewählter Bits 
16 > 
SCR # 217 
1 ( 2.3. Bitweise Operationen mit Invertierung ) 
2 
3 ( 2.3.1 Einer-Komplement ) 
4 : 
5 INVERT ALL.ONE XOR ; (u--u') 
7 
8 ( 2.3.2 Inhibition ) 
9 
10 INHIBIT INVERT AND ; ( ul u2 -- ul' = 
11 
12 
13 
14 
15 
16 --> 
SCR # 218 
1 ( 2.3.3. Operationen mit invertiertem Ergebnis ) 
2 ) 
3 ( NAND ul u2 -- u3 Invertierte AND-Operation von ) 
4 { ul und u2; liefert u3. ) 
5 ( ) 
6 ( NOR ul u2 -- u3 Invertierte OR-Operation von ) 
7 ( ul und u2; liefert u3. ) 
8 ( ) 
9 ( XNOR ul u2 -- u3 Invertierte XOR-Operation von ) 
10 ( ul und u2; liefert us. ) 
1 ( E 
er EVO PDF Tools Demo 
14 ( ): 
15 ( ) 
16 --> 
SCR # 219 
1 ( 2.3.3. Operationen mit invertiertem Ergebnis ) 
2 
3 NAND AND INVERT ; ( ul u2 -- u3 ) 
4 ı NOR OR INVERT ; ( ul u2 -- u3 ) 
5 : XNOR XOR INVERT ; ( ul u2 -- u3 ) 
5 
1 
8 
9 
10 
13 
12 
13 
14 
15 
16 --> 
SCR # 220 j 2 = 
1 ( 2.4. Boolesche Wahrheitswerte fuer Flags ): = a 3 
2 ): ılı ılı]ılılıfı 
3 ( TRUE { -- TRUE } Liefert die Bitmaske fuer TRUE. ): 
4 ( FALSE { -- FALSE } Liefert die Bitmaske fuer FALSE. ) TRUE 
5 ( ); 
6 ( 2.4.1. Wahrheitswerte umkehren ): 
7 ( NOT u--f Liest u als Flag und liefert dessen ): 
8 ( negierten Wahrheitswert als echtes I u 
9 Boolesches Flag {TRUE oder FALSE}. ) 2 a 
10 ( ): 765432710 
11 ( 2.4.3. Wahrheitswerte konsolidieren ). olololololololo 
12 ( BOOL u-- f Liest u als Flag und liefert dessen ): 
13 ( konsolidierten Wahrheitswert als ): FALSE 
14 ( Boolesches Flag {TRUE oder FALSE}. ): 
15 £ ) 
16 > ; 
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4. Boolesche Wahrheitswerte fuer Flags ) 


ONE CONSTANT TRUE ( -- TRUE 

ZERO CONSTANT FALSE ( -- FALSE 

4.1. Wahrheitswerte umkehren ) 

T FALSE = ; (u--f 
( Wort = ist vordefiniert ) 

4.3. Wahrheitswerte konsolidieren ) 

OL NOT NOT ; (u--f 
( Trick: doppelte Verneinung ) 

5. Vorzeichenbehaftete Zahlen vergleichen 

< ni n2 -- f Ist TRUE, wenn ni kleiner als n2 ist. 

> nin2 -- f Ist TRUE, wenn ni groesser als n2 ist. 

= ni n2 -- f Ist TRUE, wenn n1 gleich n2 ist. 

<> ni n2 -- f Ist TRUE, wenn n1 ungleich n2 ist. 


.6. Vorzeichenlose Zahlen vergleichen 


U< ul u2 -- f Ist TRUE, wenn ul kleiner als u2 ist. 
U> ul u2 -- f Ist TRUE, wenn ul groesser als u2 ist. 
U= ul u2 -- f Ist TRUE, wenn ul gleich u2 ist. 
U<> ul u2 -- f Ist TRUE, wenn ul ungleich u2 ist. 
.5. Vorzeichenbehaftete Zahlen vergleichen ) 
//vordefiniert//// {nıin2 -- f 
SWAP < ; (nın2 -- f 
//vordefiniert//// (nin2 -- f 
= NOT ; (nin2 -- f 
EVO PDF Tools Demo 
.6. Vorzeichenlose Zahlen vergleichen ) 
//vordefiniert//// {ul u2 -- f 
SWAP U< ; ( ul u2 -- f 
=; ( ul u2 -- f 
> <>; (ul u2 -- f 
.7. Vorzeichenbehaftete Zahlen gegen ® vergleichen 
0= n -- f Ist TRUE, wenn n gleich ® ist. 
0<> n -- f Ist TRUE, wenn n ungleich © ist. 
0< n -- f Ist TRUE, wenn n kleiner als ®@ ist. 
0> n -- f Ist TRUE, wenn n groesser als ® ist. 
.8. Vorzeichen-Operationen fuer Integer 
POSITIVE? n -- f Ist TRUE, wenn n1 eine positive 
Zahl ist. 
NEGATIVE? n -- f Ist TRUE, wenn n1 eine negative 
Zahl ist. 
NEGATE n -- n!' Aendert das Vorzeichen von n. Das 
entspricht einer Multiplikation 
von n mit -1. 
.7. Vorzeichenbehaftete Zahlen gegen © vergleichen ) 
=; (n--f 
= <>, (n-- f 
0>; (n-- f 
0<; (n--f 
8. Vorzeiche-Operationen bei Integer ) 
SITIVE? 8> ; (n-- f 
GATIVE? 0< ; (n--f 
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14 ı NEGATE INVERT 1+ ; (n--n') 














































































































15 
16 --> 
SCR # 226 
1 ( 2.9. Umrechnungen zwischen Bit und Byte ): 
2 ). 
3 ( BYTE>BIT +n1 -- n2 Rechnet +n1 Bytes in Bits um. ). 
4 ( BIT>BYTE +nl1 -- n2 Rechnet +n1 Bits in Bytes um. ): 
6 ( Bei den Umrechnungen von Bit und Byte wird von einer ): 
T ( Hardwarekonfiguration von 8 Bit pro Byte ausgegangen. ) 
8 ( Andernfalls ist dieses im Code zu aendern! 2 
9 ( ); 
10 ( ): 
11 ( BIT/CELL ..n Liefert Anzahl der Bits pro Zelle ). 
12 ( ) 
13 ( ): 
14 ( ): 
ja: ): 
16 --> 
SCR # 227 
1 ( 2.9. Umrechnungen zwischen Bit und Byte ) 
2 ; 
3 BYTE>BIT ABS BIT/BYTE * ; ( Bytezahl -- Bitzahl i 
A : 
5 ( * Trick: Aufrundung der Bytezahl via Floor-Division * ) 
6 (* bei negativen Devisor, und Ruecknegierung * ) 
7 (* des Divisionsergebnisses. *) 
8 BIT>BYTE ( Bitzahl -- Bytezahl ). 
9 ABS ( positiver Divident ) 
10 BIT/BYTE NEGATE ( negierter Devisor ) 
11 / ( Floor-Division ) 
12 NEGATE ; ( ruecknegiertes Ergebnis ) 
13 | 
14 BYTE/CELL BYTE>BIT CONSTANT BIT/CELL ( -- Bit_je_Zelle ) 
15 
16 --> 
SCR # 228 a Q 
1 ( 2.10. Logische Links-Verschiebung / I 5 ea 5 
2 Logical Left Shift EVO PDF Tools Demo 010101110111: Tı 
3 
4 ( << u-- u' Logische Links-Verschiebung um ) PER 
5 1 Bit. Dabei verfaellt das MB |) ololıJolz]ı]:Jo]«To 
6 ı( von u. ) j : : . 
7 ( ) Arithmetische Links-Verschiebung 
8 ( <<< u+n -- u! Logische Links-Verschiebung um ). 2 
93 +n Bits. Dabei verfallen u.U. ) 2 3 
10 ( mehrere MSBs von u. ) 765432710 
11 ( ) oJoJolıJolılı]ı 
12 ( Die logische und die arithmetische Links-Verschiebung ): ll) 
13 ( sind ein und dieselbe Bit-Operation. Somit deckt die ): o[oı [ofı Jı ]ı [o«To 
14 { Definition der logischen Links-Verschiebung beide ab. ) 
15 ( ) Logische Links-Verschiebung 
16 --> 
SCR # 229 
1 ( 2.10. Logische Links-Verschiebung ) 
2 
3 << 2x ; (u--u') 
4 1 <<< ABS 0 ?DO << LOOP ; (u+n -- u!) 
5 
6 
7. 
8 
9 
10 
11 
12 
13 
14 
15 
16 Be 
SCR # 230 g 5 
1 ( 2.11. Ganzzahl-Bitmasken ): 76543210 
2 ): oJoJoJoJoJoJolı 
3 ( LSB.ONE --U Bitmaske zur Isolierung des LSB. ): 
a Kl Bei den Bits dieser Zahl ist I NUGESESEI 
5 nur das LSB 1; die uebrigen ): 
6 «dl Bit sind 0. = = 2 
f ( ) : z 654321 ° 


MOB .UNE == U B1LmasKe zur 1Sollerung ges MDB. 
Bei den Bits dieser Zahl ist 
nur das MSB 1; die uebrigen 
Bit sind ®. 


1/0/0]0/0/0|0]0 


10 Nur MSB ist 1 
11 
12 
13 
14 
15 


16 


INT.MAX -- N Legt die groesste positive Integer 
des Forth-Systems auf dem Stack 
ab. 


-> ; größter positiver Integerwert 


oO|S MSB 
H|o LSB 
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SCR # 231 
( 2.11. Ganzzahl-Bitmasken ) 


1 CONSTANT LSB.ONE ( -- nur_LSB_ist_1 y 


LSB.ONE BIT/CELL 1- <<< 
CONSTANT MSB.ONE ( -- nur_MSB_ist_1 ) 


MSB.ONE INVERT 
CONSTANT INT.MAX ( -- alle_Bit_ausser_MSB_sind_1 ): 


oo oo oUuUPrwmN Hr 
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Alternativ zur Anweisung MSB.ONE INVERT ) 
12 ( kann auch die Anweisung MSB.ONE 1- ) 
13 ( genutzt werden, da beide das gleiche Bitmuster liefern. ) 
14 

15 

16 --> 


SCR # 232 

( 2.12. MSB- und LSB-Operationen 

( LSB u-- u' Liefert nur das LSB der Zahl u; 
die uebrigen Bit von u' sind ©. 

MSB u-- u' Liefert nur das MSB der Zahl u; 
die uebrigen Bit von u' sind ®. 

>LSB f-- u Legt wWahrheitswert des Flag f im 
LSB von u ab; dessen uebrige 
Bit alle auf © gesetzt sind. 

>MSB f-- u Legt Wahrheitswert des Flag f im 
MSB von u ab; dessen uebrige 
Bit alle auf © gesetzt sind. 

LSB>MSB u-- u' Das LSB von u wird zu MSB von u'; 
die uebrigen Bit von u' sind ©. 

MSB>LSB u-- u' MSB von u wird zu LSB, uebr. Bit ©. 


EMO.BBErTools’Dem: 0. 
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-> 


SCR # 233 
( 2.12. MSB- und LSB-Operationen ) 


: MSB MSB.ONE AND ; (us-=wut). 
LSB LSB.ONE AND ; (u-=- u): 


: >MSB BOOL MSB ; (f--u) 
: >LSB BOOL LSB ; (f--u) 


oo oısıoVWPwmH 


: LSB>MSB LSB >MSB ; (ws=W"): 
: MSB>LSB MSB >LSB ; (ü=-=- u"): 
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16 --> 


SCR # 234 
( 2.13. Arithmetisches Rechts-Verschiebung / 
( Arthimetic Right-Shift 


N MSB 
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A>> n -- n! Arithmetische Rechts-Verschiebung 
um 1 Bit. Das LSB verfaellt. 

A>>> n1 +n2 -- n1' Arithmetische Rechts-Verschiebung 
um +n2 Bits; u.U. verfallen LSBs. 
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Arithmetische Rechts-Verschiebung 
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.14. Logische Rechts-Verschiebung / 
Logical Right-Shift 
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>> u-- u! Logische Rechts-Verschiebung um 
1 Bit. Das LSB verfaellt. 

>>> u+n -- u' Logische Rechts-Verschiebung um 
+n Bits; u.U. verfallen LSBs. 
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SCR # 235 
t ( 2.13. Arithmetisches Rechts-Verschiebung ) 
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# 236 


ı A>> 2/ ; (n--n 
ı A>>> ABS © ?DO A>> LOOP ; ( ni +n2 -- n1' 
( 2.14. Logische Rechts-Verschiebung ) 
>> 2/ INT.MAX AND ; (u-- u 
>>> ABS 0 ?DO >> LOOP ; (u+n -- u' 
( Bei der arithmeischen Rechts-Verschiebung bleibt das Vorzei- 
( chen-Bit [MSB] erhalten, bei der logischen hingegen nicht. 
--> 
( 2.15. Logische Links-Verschiebung mit Uebertrag-Bit / 
( Logical Left Shift with Carry 
( 
( &<< uc-- u' Logische Links-Verschiebung um 
( 1 Bit mit Uebertrag c. Dabei 
( verfaellt das MSB von u. 
( 
( 
( 2.16. Logische Rechts-Verschiebung mit Uebertrag-Bit / 
( Logical Right Shift with Carry 
( 
( &>> uc-- u' Logische Rechts-Verschiebung um 
( ı1 Bit mit Uebertrag c. Dabei 
( verfaellt das LSB von u. 
( 
=> 
( 2.15. Logische Links-Verschiebung mit Uebertrag-Bit ) 
I &<< >LSB SWAP << OR ; (uc--u' 
( ce steht für Carry-Bit 
( 2.16. Logische Rechts-Verschiebung mit Uebertrag-Bit ) 
ı &>> >usB swap > BV.O PDF Tools Demo-- u' 
( ce steht für Carry-Bit 
==> 
( 2.17. Zyklische Links-Verschiebung / 
( Cyclic Left Shift 
( 
( C<< u-- u Zyklische Links-Verschiebung um 
( 1 Bit. Kein Bit verfaellt. 
( <<< u+n -- u! Zyklische Links-Verschiebung um 
( +n Bits. Kein Bit verfaellt. 
( 
( 2.18. Zyklische Rechts-Verschiebung / 
( Cyclic Right Shift 
( 
( C>> u-- u Zyklische Rechts-Verschiebung um 
( 1 Bit. Kein Bit verfaellt. 
( Cc>>> u+n -- u! Zyklische Rechts-Verschiebung um 
( +n Bits. Kein Bit verfaellt. 
SD 
( 2.17. Zyklische Links-Verschiebung ) 
ı C<< DUP LSB &<< ; (u-- u 
ı <<< ABS 0 ?DO C<< LOOP ; (u+n -- u' 
( 2.18. Zyklische Rechts-Verschiebung ) 
ı c>> DUP MSB &>> ; (u-- u 
ı C>>> ABS © ?DO C>> LOOP ; (u+n -- u! 
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Zyklische Rechts-Verschiebung 
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( 2.19. 


I C&<< 


( 2.20. 


: C&>> 


--> 


242 
( 2.21. 


( 
BEADSHIFT 


mn nn nnnrnrnnnnnrn 


Hinweis: 
-> 
243 
( 2.21. 
BEADSHIFT 
(ul u 
(ul u 
(ul u 
(ul u 
(u'u 
(u'u 
; ( ul’ u 
--> 
244 
( 2.22. Bitr 
( 
REVERSE 


( 
( 
( 
( 
( 
( 
( 
( 


uc-- u'c! 


.19. Zyklische Links-Verschiebung mit Uebertrag-Bit / 
Cyclic Left Shift with Carry Bit 


Zyklische Links-Verschiebung um 


ı Bit mit Uebertrag-Bit c. 
Kein Bit verfaellt. 


uc-- u'c! 


Zyklische Rechts-Verschiebung mit Uebertrag-Bit / 
Cyclic Right Shift with Carry Bit 


Zyklische Rechts-Verschiebung um 


1 Bit mit Uebertrag-Bit c. 
Kein Bit verfaellt. 


OVER MSB>LSB >R &<< R> 


OVER LSB >R &>> R> 


ul u2 -- u1l' u2' 


Das wiederholte Ausfuehren von BEADSHIFT ermoeg- 


’ 
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Bitweise "Perlenketten"-Aufreihung 


Zyklische Links-Verschiebung mit Uebertrag-Bit ) 


(uc-- u'c! 


Zyklische Rechts-Verschiebung mit Uebertrag-Bit ) 


(uc-- u'c! 


BEADSHIFT erwartet zwei BMfY BDRskepks Demaack. 


Dann wird ul logisch rechtsverschoben und als u1l' zurueck- 
gegeben. Desweiteren wird u2 linksverschoben und als u2' 
zurueckgegeben, wobei zuvor noch das LSB von ul in das LSB 
von u2' uebertragen wurde. Das MSB von u2 verfaellt. 


licht eine umgekehrte Anordnung der Bits von ul 


im Rueckgabewert u2'. 


2 ) OVER 
2 ul ) LSB 
2 ui_lsb ) &<< 
2' ) SWAP 
1 ) >> 
1' ) SWAP 
2' ) 


eihenfolge umkehren 


u-- u' 


Bitweise "Perlenketten"-Aufreihung ) 


d.h. 


( ul u2 -- ul! u2' 


Dreht die Reihenfolge der Bits in u 
spiegelverkehrt um, 


vordere 


und hintere Bits werden gegenein- 


ander vertauscht. 


ist u'. 


Das 


Ergebnis 
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245 
( 2.22. Bitreihenfolge umkehren ) 


dezimalzahl aus. 


REVERSE (u--u 
(u ) 0 
(u 0 ) BIT/CELL © 
(u 0 ende start ) ?DO 
(u 0 ) BEADSHIFT 
( ul! u! ) LOOP 
( ul! u! ) NIP 
; (u ) 
--> 
246 
( 3. Ein-/Ausgasbe-Woerter 
( 
( BIN -- Aktiviert den Ein-/Ausgabe -Modus 
( fuer Binaerzahlen [Dualzahlen]. 
( UR.BIN u -- Gibt u rechtsbuendig als Binaer- 
( zahl aus. 
( U.BIN u -- Gibt u linksbuendig als Binaer- 
( zahl aus. 
( U.OCTAL U-- Gibt u linksbuendig als Oktal- 
( zahl aus. 
( U.DECIMAL U -- Gibt u linksbuendig als Dezimal- 
( zahl aus. 
( U.HEX u -- Gibt u linksbuendig als Hexa- 
( 
( 
--> 
947 EVO PDF Tools Demo 
( 3. Ein-/Ausgasbe-Woerter ) 
BIN 2 BASE ! ; (-- 
UR.BIN BASE @ >R (u-- 
BIN BIT/CELL U.R 
R> BASE ! ; 
U.BIN BASE @ >R BIN U. R> BASE ! ; (u-- 
U.OCT BASE @ >R OCTAL U. R> BASE ! ; (u-- 
U.DEC BASE @ >R DECIMAL U. R> BASE ! ; (u-- 
U.HEX BASE @ >R HEX U. R> BASE ! ; (u-- 
--> 
248 


Hiermit ist die Lehrsammlung der Bit- und Flag- Woerter 
abgeschlossen. 


Mit dem naechsten Block rauemen wir Ihr Forth-System auf, 
so dass Sie anschliessend die Woerter dieser Sammlung nach 


Belieben austesten konnen. 


Dabei wuenschen wir Ihnen viel Spass! 


INT NT TEN TMTNTRNTRNTMNTRTn 


-> 


249 
( Forth aufraeumen ) 


WARNING ON ( Kompiler-Hinweise aktivieren ) 
DECIMAL ( dezimalen E/A-Modus aktivieren ) 


m u vu un\ 
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